﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PermisosiniFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PermisosiniBE
        Dim tmpPermisosini As PermisosiniBE = New PermisosiniBE()
        Try
            With tmpPermisosini
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .Modulo = convertDTFromDb.ConvertShort(dr.Item("Modulo"))
                .NombreMenu = convertDTFromDb.ConvertString(dr.Item("NombreMenu"))
                .Proceso = convertDTFromDb.ConvertString(dr.Item("Proceso"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
                 End With
            Return tmpPermisosini
        Catch ex As Exception
            Throw
        Finally
            tmpPermisosini = Nothing
        End Try
    End Function
End Class
